home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / com / computer / casio_st / prog_fx / oisac2 / l_s6230.txt < prev    next >
Text File  |  1994-03-01  |  280b  |  9 lines
  1. 5 ONERRORGOTO500
  2. 10 ANGLE1:y=ATN(x/SQRn):z=COSy^2
  3. 20 IFn MOD 2=0 THENa=SINy/2:b=.5 ELSEb=.5+y/PI:IFn=1 THENa=0 ELSEa=SINy*COSy/PI
  4. 30 y=1:FORi=n-2 TO2 STEP-2:y=1+(i-1)/i*z*y:NEXT
  5. 40 p=1-(b+a*y):IFp<0 THENp=0
  6. 80 y=p:RETURN
  7. 500 IFERR=1 THENCLS:ONERRORGOTO0
  8. 510 sr=1:RESUME80
  9.